COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VIDXGQ"
C00003 ENDMK
C⊗;
BEGIN "VIDXGQ"
INTEGER ARRAY MESSAGE[1:32];
REQUIRE "VIXHDR.SAI[VIS,HPM]" SOURCE_FILE;

IF FALSE THEN
 BEGIN STRING A; EQU(A,A); CALL(0,0); A←CVXSTR(0); A←CVSIX("0"); A←A[1 TO 1]; END;

CALL(CVSIX("READY!"),"SETNAM");

   BEGIN
   INTEGER ARRAY PIC[0:PFLDIM("DSK:TMP.TMP[TMP,HPM]")];
   INTEGER SJOB,I0,J0,PLEN;

   GETPFL("DSK:TMP.TMP[TMP,HPM]",PIC[0]);
   START_CODE MAIL 1,ACCESS(MESSAGE[1]); comment WRCV; END;
   CALL(CVSIX("VIDXGQ"),"SETNAM");
   SJOB←MESSAGE[1];
   I0←MESSAGE[2];
   J0←MESSAGE[3];
   PLEN←MESSAGE[4];

   VIDXGP(PIC[0],I0,J0,PLEN);
   END;

END "VIDXGQ";